home *** CD-ROM | disk | FTP | other *** search
- pTempVar <- <primitive 110 2 >
- <primitive 112 pTempVar 1 " isDisplayed " \
- #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
- #( 'isDisplayed' #subclassResponsibility: )) >
-
- <primitive 112 pTempVar 2 " glyphType " \
- #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
- #( 'glyphType' #subclassResponsibility: )) >
-
- <primitive 98 #Glyph \
- <primitive 97 #Glyph #Object #AmigaTalk:Intuition/Glyph.st \
- #( ) \
- #( #isDisplayed #glyphType ) \
- pTempVar 1 3 > #ordinary >
-
-